home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / bbsutils / thtmt227.arj / THT-INFO.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-02-27  |  29KB  |  1,274 lines

  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Date     DATE001
  21.     Integer  INTEGER002
  22.     Integer  INTEGER003
  23.     Integer  INTEGER004
  24.     Integer  INTEGER005
  25.     Integer  INTEGER006
  26.     Integer  INTEGER007
  27.     Integer  INTEGER008
  28.     Integer  INTEGER009
  29.     Integer  INTEGER010
  30.     Integer  INTEGER011
  31.     Integer  INTEGER012
  32.     String   STRING001
  33.     String   STRING002
  34.     String   STRING003
  35.     String   STRING004
  36.     String   STRING005
  37.     String   STRING006
  38.     String   STRING007
  39.     String   STRING008
  40.     String   STRING009
  41.     String   STRING010
  42.     String   STRING011
  43.     String   STRING012
  44.     String   STRING013
  45.     String   STRING014
  46.     String   STRING015
  47.     String   STRING016
  48.     String   STRING017
  49.     String   STRING018
  50.     String   STRING019
  51.     String   STRING020
  52.     String   STRING021
  53.     String   STRING022
  54.     String   STRING023
  55.     String   STRING024
  56.     String   STRING025
  57.     String   STRING026
  58.     String   STRING027
  59.     String   STRING028
  60.     String   STRING029
  61.     String   STRING030
  62.     String   STRING031
  63.     String   STRING032
  64.     String   STRING033
  65.     String   STRING034
  66.     String   STRING035
  67.     String   TSTRING036(1)
  68.     String   STRING037
  69.     String   STRING038
  70.     String   STRING039
  71.     String   STRING040
  72.  
  73. ;------------------------------------------------------------------------------
  74.  
  75.     STRING034 = Chr(48) + Chr(50) + "-" + Chr(50) + Chr(53) + "-" + Chr(57) + Chr(52)
  76.     STRING035 = Chr(50) + Chr(46) + Chr(49) + Chr(49)
  77.     STRING028 = Chr(64) + Chr(88) + Chr(48) + Chr(69) + Chr(84) + Chr(72) + Chr(84) + Chr(45) + Chr(73) + Chr(110) + Chr(102) + Chr(111) + Chr(70) + Chr(111) + Chr(114) + Chr(109) + " " + Chr(64) + Chr(88) + Chr(48) + Chr(57) + STRING035 + "  " + Chr(64) + Chr(88) + Chr(48) + Chr(69) + Chr(67) + Chr(111) + Chr(109) + Chr(112) + Chr(105) + Chr(108) + Chr(101) + Chr(100) + " " + Chr(111) + Chr(110) + " " + Chr(64) + Chr(88) + Chr(48) + Chr(67) + STRING034 + Chr(64) + Chr(88) + Chr(48) + Chr(55)
  78.     STRING038 = Chr(64) + Chr(88) + Chr(56) + Chr(67) + Chr(60) + Chr(60) + Chr(60) + Chr(64) + Chr(88) + Chr(56) + Chr(67) + Chr(85) + Chr(110) + Chr(82) + Chr(101) + Chr(103) + Chr(105) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + Chr(101) + Chr(100) + Chr(64) + Chr(88) + Chr(56) + Chr(67) + Chr(62) + Chr(62) + Chr(62)
  79.     DATE001 = Chr(48) + Chr(51) + "-" + Chr(50) + Chr(53) + "-" + Chr(57) + Chr(52)
  80.     TSTRING036(0) = Upper(ReadLine(PCBDat(), 2))
  81.     TSTRING036(1) = Upper(ReadLine(PCBDat(), 94))
  82.     Cls
  83.     AnsiPos 1, 1
  84.     PrintLn "@X0ELoading " + Chr(64) + Chr(88) + Chr(48) + Chr(67) + Chr(60) + Chr(60) + Chr(64) + Chr(88) + Chr(48) + Chr(69) + Chr(84) + Chr(72) + Chr(84) + Chr(64) + Chr(88) + Chr(48) + Chr(67) + Chr(62) + Chr(62) + " @X0EInfoForms @X0F!"
  85.     STRING040 = 0
  86.     For STRING040 = 0 To 1
  87.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "1")
  88.         AnsiPos 28, 1
  89.         Print "@X0E|"
  90.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "2")
  91.         AnsiPos 28, 1
  92.         Print "@X0F/"
  93.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "3")
  94.         AnsiPos 28, 1
  95.         Print "@X0E-"
  96.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "4")
  97.         AnsiPos 28, 1
  98.         Print "@X0F\"
  99.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "5")
  100.         AnsiPos 28, 1
  101.         Print "@X0E|"
  102.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "6")
  103.         AnsiPos 28, 1
  104.         Print "@X0F/"
  105.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "7")
  106.         AnsiPos 28, 1
  107.         Print "@X0E-"
  108.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "8")
  109.         AnsiPos 28, 1
  110.         Print "@X0F\"
  111.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "9")
  112.         AnsiPos 28, 1
  113.         Print "@X0E|"
  114.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "0")
  115.         AnsiPos 28, 1
  116.         Print "@X0F/"
  117.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "=")
  118.         AnsiPos 28, 1
  119.         Print "@X0E-"
  120.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "-")
  121.         AnsiPos 28, 1
  122.         Print "@X0F\"
  123.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), " ")
  124.         AnsiPos 28, 1
  125.         Print "@X0E|"
  126.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), " ")
  127.         AnsiPos 28, 1
  128.         Print "@X0F/"
  129.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "<")
  130.         AnsiPos 28, 1
  131.         Print "@X0E-"
  132.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), ">")
  133.         AnsiPos 28, 1
  134.         Print "@X0F\"
  135.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "*")
  136.         AnsiPos 28, 1
  137.         Print "@X0E|"
  138.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), ")")
  139.         AnsiPos 28, 1
  140.         Print "@X0F/"
  141.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "(")
  142.         AnsiPos 28, 1
  143.         Print "@X0E-"
  144.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "{")
  145.         AnsiPos 28, 1
  146.         Print "@X0F\"
  147.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "}")
  148.         AnsiPos 28, 1
  149.         Print "@X0E|"
  150.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "[")
  151.         AnsiPos 28, 1
  152.         Print "@X0F/"
  153.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "]")
  154.         AnsiPos 28, 1
  155.         Print "@X0E-"
  156.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "~")
  157.         AnsiPos 28, 1
  158.         Print "@X0F\"
  159.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "!")
  160.         AnsiPos 28, 1
  161.         Print "@X0E|"
  162.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "@")
  163.         AnsiPos 28, 1
  164.         Print "@X0F/"
  165.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "#")
  166.         AnsiPos 28, 1
  167.         Print "@X0E-"
  168.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "$")
  169.         AnsiPos 28, 1
  170.         Print "@X0F\"
  171.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "%")
  172.         AnsiPos 28, 1
  173.         Print "@X0E|"
  174.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "^")
  175.         AnsiPos 28, 1
  176.         Print "@X0F/"
  177.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "&")
  178.         AnsiPos 28, 1
  179.         Print "@X0E-"
  180.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), ":")
  181.         AnsiPos 28, 1
  182.         Print "@X0F\"
  183.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), ";")
  184.         AnsiPos 28, 1
  185.         Print "@X0E|"
  186.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "")
  187.         AnsiPos 28, 1
  188.         Print "@X0F/"
  189.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), ".")
  190.         AnsiPos 28, 1
  191.         Print "@X0E-"
  192.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), ",")
  193.         AnsiPos 28, 1
  194.         Print "@X0F\"
  195.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "?")
  196.         AnsiPos 28, 1
  197.         Print "@X0E|"
  198.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "/")
  199.         AnsiPos 28, 1
  200.         Print "@X0F/"
  201.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "|")
  202.         AnsiPos 28, 1
  203.         Print "@X0E-"
  204.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "\")
  205.         AnsiPos 28, 1
  206.         Print "@X0F\"
  207.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "+")
  208.         AnsiPos 28, 1
  209.         Print "@X0E|"
  210.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "=")
  211.         AnsiPos 28, 1
  212.         Print "@X0F/"
  213.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "-")
  214.         AnsiPos 28, 1
  215.         Print "@X0E-"
  216.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), ".")
  217.         AnsiPos 28, 1
  218.         Print "@X0F\"
  219.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "«")
  220.         AnsiPos 28, 1
  221.         Print "@X0E|"
  222.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "»")
  223.         AnsiPos 28, 1
  224.         Print "@X0F/"
  225.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "Ü")
  226.         AnsiPos 28, 1
  227.         Print "@X0E-"
  228.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "┤")
  229.         AnsiPos 28, 1
  230.         Print "@X0F\"
  231.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "│")
  232.         AnsiPos 28, 1
  233.         Print "@X0E|"
  234.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "╡")
  235.         AnsiPos 28, 1
  236.         Print "@X0F/"
  237.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "")
  238.         AnsiPos 28, 1
  239.         Print "@X0E-"
  240.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "")
  241.         AnsiPos 28, 1
  242.         Print "@X0F\"
  243.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "")
  244.         AnsiPos 28, 1
  245.         Print "@X0E|"
  246.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "")
  247.         AnsiPos 28, 1
  248.         Print "@X0F/"
  249.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "")
  250.         AnsiPos 28, 1
  251.         Print "@X0E-"
  252.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "")
  253.         AnsiPos 28, 1
  254.         Print "@X0F\"
  255.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "")
  256.         AnsiPos 28, 1
  257.         Print "@X0E|"
  258.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "")
  259.         AnsiPos 28, 1
  260.         Print "@X0F/"
  261.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "")
  262.         AnsiPos 28, 1
  263.         Print "@X0E-"
  264.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "")
  265.         AnsiPos 28, 1
  266.         Print "@X0F\"
  267.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "")
  268.         AnsiPos 28, 1
  269.         Print "@X0E|"
  270.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "")
  271.         AnsiPos 28, 1
  272.         Print "@X0F/"
  273.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "")
  274.         AnsiPos 28, 1
  275.         Print "@X0E-"
  276.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "")
  277.         AnsiPos 28, 1
  278.         Print "@X0F\"
  279.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "")
  280.         AnsiPos 28, 1
  281.         Print "@X0E|"
  282.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "")
  283.         AnsiPos 28, 1
  284.         Print "@X0F/"
  285.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), " ")
  286.         AnsiPos 28, 1
  287.         Print "@X0E-"
  288.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "")
  289.         AnsiPos 28, 1
  290.         Print "@X0F\"
  291.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "")
  292.         AnsiPos 28, 1
  293.         Print "@X0E|"
  294.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "Ç")
  295.         AnsiPos 28, 1
  296.         Print "@X0F/"
  297.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "É")
  298.         AnsiPos 28, 1
  299.         Print "@X0E-"
  300.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "á")
  301.         AnsiPos 28, 1
  302.         Print "@X0F\"
  303.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "░")
  304.         AnsiPos 28, 1
  305.         Print "@X0E|"
  306.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "ü")
  307.         AnsiPos 28, 1
  308.         Print "@X0F/"
  309.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "æ")
  310.         AnsiPos 28, 1
  311.         Print "@X0E-"
  312.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "í")
  313.         AnsiPos 28, 1
  314.         Print "@X0F\"
  315.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "▒")
  316.         AnsiPos 28, 1
  317.         Print "@X0E|"
  318.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "é")
  319.         AnsiPos 28, 1
  320.         Print "@X0F/"
  321.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "Æ")
  322.         AnsiPos 28, 1
  323.         Print "@X0E-"
  324.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "ó")
  325.         AnsiPos 28, 1
  326.         Print "@X0F\"
  327.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "▓")
  328.         AnsiPos 28, 1
  329.         Print "@X0E|"
  330.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "â")
  331.         AnsiPos 28, 1
  332.         Print "@X0F/"
  333.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "ô")
  334.         AnsiPos 28, 1
  335.         Print "@X0E-"
  336.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "ú")
  337.         AnsiPos 28, 1
  338.         Print "@X0F\"
  339.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "│")
  340.         AnsiPos 28, 1
  341.         Print "@X0E|"
  342.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "ä")
  343.         AnsiPos 28, 1
  344.         Print "@X0F/"
  345.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "ö")
  346.         AnsiPos 28, 1
  347.         Print "@X0E-"
  348.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "ñ")
  349.         AnsiPos 28, 1
  350.         Print "@X0F\"
  351.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "┤")
  352.         AnsiPos 28, 1
  353.         Print "@X0E|"
  354.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "à")
  355.         AnsiPos 28, 1
  356.         Print "@X0F/"
  357.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "ò")
  358.         AnsiPos 28, 1
  359.         Print "@X0E-"
  360.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "Ñ")
  361.         AnsiPos 28, 1
  362.         Print "@X0F\"
  363.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "╡")
  364.         AnsiPos 28, 1
  365.         Print "@X0E|"
  366.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "å")
  367.         AnsiPos 28, 1
  368.         Print "@X0F/"
  369.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "û")
  370.         AnsiPos 28, 1
  371.         Print "@X0E-"
  372.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "ª")
  373.         AnsiPos 28, 1
  374.         Print "@X0F\"
  375.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "╢")
  376.         AnsiPos 28, 1
  377.         Print "@X0E|"
  378.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "ç")
  379.         AnsiPos 28, 1
  380.         Print "@X0F/"
  381.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "ù")
  382.         AnsiPos 28, 1
  383.         Print "@X0E-"
  384.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "º")
  385.         AnsiPos 28, 1
  386.         Print "@X0F\"
  387.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "╖")
  388.         AnsiPos 28, 1
  389.         Print "@X0E|"
  390.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "ê")
  391.         AnsiPos 28, 1
  392.         Print "@X0F/"
  393.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "ÿ")
  394.         AnsiPos 28, 1
  395.         Print "@X0E-"
  396.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "¿")
  397.         AnsiPos 28, 1
  398.         Print "@X0F\"
  399.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "╕")
  400.         AnsiPos 28, 1
  401.         Print "@X0E|"
  402.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "ë")
  403.         AnsiPos 28, 1
  404.         Print "@X0F/"
  405.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "Ö")
  406.         AnsiPos 28, 1
  407.         Print "@X0E-"
  408.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "⌐")
  409.         AnsiPos 28, 1
  410.         Print "@X0F\"
  411.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "╣")
  412.         AnsiPos 28, 1
  413.         Print "@X0E|"
  414.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "è")
  415.         AnsiPos 28, 1
  416.         Print "@X0F/"
  417.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "Ü")
  418.         AnsiPos 28, 1
  419.         Print "@X0E-"
  420.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "¬")
  421.         AnsiPos 28, 1
  422.         Print "@X0F\"
  423.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "║")
  424.         AnsiPos 28, 1
  425.         Print "@X0E|"
  426.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "ï")
  427.         AnsiPos 28, 1
  428.         Print "@X0F/"
  429.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "¢")
  430.         AnsiPos 28, 1
  431.         Print "@X0E-"
  432.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "½")
  433.         AnsiPos 28, 1
  434.         Print "@X0F\"
  435.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "╗")
  436.         AnsiPos 28, 1
  437.         Print "@X0E|"
  438.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "î")
  439.         AnsiPos 28, 1
  440.         Print "@X0F/"
  441.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "£")
  442.         AnsiPos 28, 1
  443.         Print "@X0E-"
  444.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "¼")
  445.         AnsiPos 28, 1
  446.         Print "@X0F\"
  447.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "╝")
  448.         AnsiPos 28, 1
  449.         Print "@X0E|"
  450.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "ì")
  451.         AnsiPos 28, 1
  452.         Print "@X0F/"
  453.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "¥")
  454.         AnsiPos 28, 1
  455.         Print "@X0E-"
  456.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "¡")
  457.         AnsiPos 28, 1
  458.         Print "@X0F\"
  459.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "╜")
  460.         AnsiPos 28, 1
  461.         Print "@X0E|"
  462.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "Ä")
  463.         AnsiPos 28, 1
  464.         Print "@X0F/"
  465.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "₧")
  466.         AnsiPos 28, 1
  467.         Print "@X0E-"
  468.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "«")
  469.         AnsiPos 28, 1
  470.         Print "@X0F\"
  471.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "╛")
  472.         AnsiPos 28, 1
  473.         Print "@X0E|"
  474.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "Å")
  475.         AnsiPos 28, 1
  476.         Print "@X0F/"
  477.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "ƒ")
  478.         AnsiPos 28, 1
  479.         Print "@X0E-"
  480.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "»")
  481.         AnsiPos 28, 1
  482.         Print "@X0F\"
  483.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "┐")
  484.         AnsiPos 28, 1
  485.         Print "@X0E|"
  486.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), " ")
  487.         AnsiPos 28, 1
  488.         Print "@X0F/"
  489.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "└")
  490.         AnsiPos 28, 1
  491.         Print "@X0E-"
  492.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "╨")
  493.         AnsiPos 28, 1
  494.         Print "@X0F\"
  495.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "α")
  496.         AnsiPos 28, 1
  497.         Print "@X0E|"
  498.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "≡")
  499.         AnsiPos 28, 1
  500.         Print "@X0F/"
  501.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "┴")
  502.         AnsiPos 28, 1
  503.         Print "@X0E-"
  504.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "╤")
  505.         AnsiPos 28, 1
  506.         Print "@X0F\"
  507.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "ß")
  508.         AnsiPos 28, 1
  509.         Print "@X0E|"
  510.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "±")
  511.         AnsiPos 28, 1
  512.         Print "@X0F/"
  513.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "┬")
  514.         AnsiPos 28, 1
  515.         Print "@X0E-"
  516.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "╥")
  517.         AnsiPos 28, 1
  518.         Print "@X0F\"
  519.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "Γ")
  520.         AnsiPos 28, 1
  521.         Print "@X0E|"
  522.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "≥")
  523.         AnsiPos 28, 1
  524.         Print "@X0F/"
  525.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "├")
  526.         AnsiPos 28, 1
  527.         Print "@X0E-"
  528.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "╙")
  529.         AnsiPos 28, 1
  530.         Print "@X0F\"
  531.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "π")
  532.         AnsiPos 28, 1
  533.         Print "@X0E|"
  534.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "≤")
  535.         AnsiPos 28, 1
  536.         Print "@X0F/"
  537.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "─")
  538.         AnsiPos 28, 1
  539.         Print "@X0E-"
  540.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "╘")
  541.         AnsiPos 28, 1
  542.         Print "@X0F\"
  543.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "Σ")
  544.         AnsiPos 28, 1
  545.         Print "@X0E|"
  546.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "⌠")
  547.         AnsiPos 28, 1
  548.         Print "@X0F/"
  549.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "┼")
  550.         AnsiPos 28, 1
  551.         Print "@X0E-"
  552.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "╒")
  553.         AnsiPos 28, 1
  554.         Print "@X0F\"
  555.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "σ")
  556.         AnsiPos 28, 1
  557.         Print "@X0E|"
  558.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "⌡")
  559.         AnsiPos 28, 1
  560.         Print "@X0F/"
  561.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "╞")
  562.         AnsiPos 28, 1
  563.         Print "@X0E-"
  564.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "╓")
  565.         AnsiPos 28, 1
  566.         Print "@X0F\"
  567.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "µ")
  568.         AnsiPos 28, 1
  569.         Print "@X0E|"
  570.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "÷")
  571.         AnsiPos 28, 1
  572.         Print "@X0F/"
  573.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "╟")
  574.         AnsiPos 28, 1
  575.         Print "@X0E-"
  576.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "╫")
  577.         AnsiPos 28, 1
  578.         Print "@X0F\"
  579.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "τ")
  580.         AnsiPos 28, 1
  581.         Print "@X0E|"
  582.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "≈")
  583.         AnsiPos 28, 1
  584.         Print "@X0F/"
  585.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "╚")
  586.         AnsiPos 28, 1
  587.         Print "@X0E-"
  588.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "╪")
  589.         AnsiPos 28, 1
  590.         Print "@X0F\"
  591.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "Φ")
  592.         AnsiPos 28, 1
  593.         Print "@X0E|"
  594.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "°")
  595.         AnsiPos 28, 1
  596.         Print "@X0F/"
  597.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "╔")
  598.         AnsiPos 28, 1
  599.         Print "@X0E-"
  600.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "┘")
  601.         AnsiPos 28, 1
  602.         Print "@X0F\"
  603.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "Θ")
  604.         AnsiPos 28, 1
  605.         Print "@X0E|"
  606.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "∙")
  607.         AnsiPos 28, 1
  608.         Print "@X0F/"
  609.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "╩")
  610.         AnsiPos 28, 1
  611.         Print "@X0E-"
  612.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "┌")
  613.         AnsiPos 28, 1
  614.         Print "@X0F\"
  615.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "Ω")
  616.         AnsiPos 28, 1
  617.         Print "@X0E|"
  618.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "·")
  619.         AnsiPos 28, 1
  620.         Print "@X0F/"
  621.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "╦")
  622.         AnsiPos 28, 1
  623.         Print "@X0E-"
  624.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "█")
  625.         AnsiPos 28, 1
  626.         Print "@X0F\"
  627.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "δ")
  628.         AnsiPos 28, 1
  629.         Print "@X0E|"
  630.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "√")
  631.         AnsiPos 28, 1
  632.         Print "@X0F/"
  633.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "╠")
  634.         AnsiPos 28, 1
  635.         Print "@X0E-"
  636.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "▄")
  637.         AnsiPos 28, 1
  638.         Print "@X0F\"
  639.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "∞")
  640.         AnsiPos 28, 1
  641.         Print "@X0E|"
  642.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "ⁿ")
  643.         AnsiPos 28, 1
  644.         Print "@X0F/"
  645.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "═")
  646.         AnsiPos 28, 1
  647.         Print "@X0E-"
  648.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "▌")
  649.         AnsiPos 28, 1
  650.         Print "@X0F\"
  651.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "φ")
  652.         AnsiPos 28, 1
  653.         Print "@X0E|"
  654.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "²")
  655.         AnsiPos 28, 1
  656.         Print "@X0F/"
  657.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "╬")
  658.         AnsiPos 28, 1
  659.         Print "@X0E-"
  660.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "▐")
  661.         AnsiPos 28, 1
  662.         Print "@X0F\"
  663.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "ε")
  664.         AnsiPos 28, 1
  665.         Print "@X0E|"
  666.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "■")
  667.         AnsiPos 28, 1
  668.         Print "@X0F/"
  669.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "╧")
  670.         AnsiPos 28, 1
  671.         Print "@X0E-"
  672.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "▀")
  673.         AnsiPos 28, 1
  674.         Print "@X0F\"
  675.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "U")
  676.         AnsiPos 28, 1
  677.         Print "@X0E|"
  678.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "V")
  679.         AnsiPos 28, 1
  680.         Print "@X0F/"
  681.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "W")
  682.         AnsiPos 28, 1
  683.         Print "@X0E-"
  684.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "X")
  685.         AnsiPos 28, 1
  686.         Print "@X0F\"
  687.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "Y")
  688.         AnsiPos 28, 1
  689.         Print "@X0E|"
  690.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), "Z")
  691.         AnsiPos 28, 1
  692.         Print "@X0F/"
  693.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), Chr(44))
  694.         AnsiPos 28, 1
  695.         Print "@X0E-"
  696.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), Chr(0))
  697.         AnsiPos 28, 1
  698.         Print "@X0F\"
  699.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), Chr(7))
  700.         AnsiPos 28, 1
  701.         Print "@X0E|"
  702.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), Chr(8))
  703.         AnsiPos 28, 1
  704.         Print "@X0F/"
  705.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), Chr(10))
  706.         AnsiPos 28, 1
  707.         Print "@X0E-"
  708.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), Chr(117))
  709.         AnsiPos 28, 1
  710.         Print "@X0F\"
  711.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), Chr(118))
  712.         AnsiPos 28, 1
  713.         Print "@X0E|"
  714.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), Chr(119))
  715.         AnsiPos 28, 1
  716.         Print "@X0F/"
  717.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), Chr(120))
  718.         AnsiPos 28, 1
  719.         Print "@X0E-"
  720.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), Chr(121))
  721.         AnsiPos 28, 1
  722.         Print "@X0F\"
  723.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), Chr(122))
  724.         AnsiPos 28, 1
  725.         Print "@X0E|"
  726.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), Chr(86))
  727.         AnsiPos 28, 1
  728.         Print "@X0F/"
  729.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), Chr(87))
  730.         AnsiPos 28, 1
  731.         Print "@X0E-"
  732.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), Chr(88))
  733.         AnsiPos 28, 1
  734.         Print "@X0F\"
  735.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), Chr(89))
  736.         AnsiPos 28, 1
  737.         Print "@X0E|"
  738.         TSTRING036(STRING040) = Strip(TSTRING036(STRING040), Chr(90))
  739.         AnsiPos 28, 1
  740.         Print "@X0F/"
  741.     Next
  742.     INTEGER009 = Len(TSTRING036(0))
  743.     If (INTEGER009 < 2) TSTRING036(0) = "if"
  744.     TSTRING036(0) = Right(TSTRING036(0), 2)
  745.     INTEGER010 = Len(TSTRING036(1))
  746.     If (INTEGER010 < 2) TSTRING036(1) = "if"
  747.     TSTRING036(1) = Right(TSTRING036(1), 2)
  748.     STRING037 = TSTRING036(0) + TSTRING036(1) + Chr(79) + Chr(70)
  749.     STRING027 = Carrier()
  750.     STRING007 = Time()
  751.     STRING006 = Date()
  752.     FDefIn 1
  753.     If (STRING028 <> Chr(64) + Chr(88) + Chr(48) + Chr(69) + Chr(84) + Chr(72) + Chr(84) + Chr(45) + Chr(73) + Chr(110) + Chr(102) + Chr(111) + Chr(70) + Chr(111) + Chr(114) + Chr(109) + " " + Chr(64) + Chr(88) + Chr(48) + Chr(57) + STRING035 + "  " + Chr(64) + Chr(88) + Chr(48) + Chr(69) + Chr(67) + Chr(111) + Chr(109) + Chr(112) + Chr(105) + Chr(108) + Chr(101) + Chr(100) + " " + Chr(111) + Chr(110) + " " + Chr(64) + Chr(88) + Chr(48) + Chr(67) + STRING034 + Chr(64) + Chr(88) + Chr(48) + Chr(55)) Then
  754.         PrintLn "@X0FHacked Copy Do not Hexedit this File"
  755.         Delete PPEPath() + PPEName() + Chr(46) + Chr(112) + Chr(112) + Chr(101)
  756.     Else
  757.         GetUser
  758.         FClose 1
  759.         FOpen 1, PPEPath() + PPEName() + ".LVL", 0, 0
  760.         FDGet STRING026
  761.         FDGet STRING029
  762.         FDGet INTEGER006
  763.         FDGet STRING018
  764.         FDGet STRING039
  765.         FDGet STRING021
  766.         FClose 1
  767.         If (STRING029 == S2I(STRING037, 34)) Goto LABEL001
  768.         If (Date() >= DATE001) Then
  769.             AnsiPos 20, 7
  770.             PrintLn "@X8FThis PPE has Expired!!!!"
  771.         Else
  772.             :LABEL001
  773.             FClose 1
  774.             StartDisp 1
  775.             DispFile PPEPath() + "dsclm.pcb", 0
  776.             STRING025 = YesChar()
  777.             InputYN "                Do You Agree To This@X0F ???", STRING025, 9
  778.             If (STRING025 == "N") Then
  779.                 U_Sec = 0
  780.                 DelUser
  781.                 PutUser
  782.                 Hangup
  783.                 Goto LABEL002
  784.             Endif
  785.             :LABEL002
  786.             If (STRING029 == S2I(STRING037, 34)) Goto LABEL003
  787.             If (Date() >= DATE001) Then
  788.                 AnsiPos 20, 7
  789.                 PrintLn "@X8FThis PPE has Expired!!!!"
  790.             Else
  791.                 :LABEL003
  792.                 Cls
  793.                 StartDisp 1
  794.                 RestScrn
  795.                 STRING013 = 10
  796.                 STRING014 = 1
  797.                 AnsiPos 18, 1
  798.                 PrintLn STRING028
  799.                 AnsiPos 23, 2
  800.                 PrintLn "@X0F┌──────────────────────────────┐@X07"
  801.                 AnsiPos 23, 3
  802.                 PrintLn "@X07│@X1F   ∙  New User InfoForms  ∙   @X07│@X07"
  803.                 AnsiPos 23, 4
  804.                 PrintLn "@X08└──────────────────────────────┘@X07"
  805.                 AnsiPos 2, 5
  806.                 PrintLn "@X0EUse Cursor Keys to move the @X74HighLighted Bar@X0E  or @X0C""@X09A@X0C""@X0F,@X0C ""@X09Z@X0C""@X0E or @X0FSpaceBar@X0    
  807.                 AnsiPos 2, 6
  808.                 PrintLn "@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07▄@X07"
  809.                 AnsiPos 2, 7
  810.                 PrintLn "@X0F█@X71                                                 @X08█@X07"
  811.                 AnsiPos 2, 8
  812.                 PrintLn "@X0F█@X71 No.  InfoForm Title         Status       Req'd  @X08█ @X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07▄@X07"
  813.                 AnsiPos 2, 9
  814.                 PrintLn "@X0F█@X71─────────────────────────────────────────────────@X08█ @X0F█@X71                         @X08█@X07"
  815.                 FOpen 1, PPEPath() + PPEName() + ".cfg", 0, 0
  816.                 FDGet INTEGER007
  817.                 For STRING008 = 1 To INTEGER007
  818.                     Delete STRING008 + ".lck"
  819.                 Next
  820.                 For STRING008 = 1 To INTEGER007
  821.                     Delete STRING008 + ".YES"
  822.                 Next
  823.                 For INTEGER005 = 1 To INTEGER007
  824.                     AnsiPos 2, STRING013
  825.                     PrintLn "@X0F█@X71                                                 @X08█ @X0F█@X71                         @X08█@X07"
  826.                     FOpen 2, PPEPath() + "infocfg." + STRING014, 0, 0
  827.                     FGet 2, STRING012
  828.                     FDGet STRING003
  829.                     Gosub LABEL010
  830.                     If (!Exist(STRING014 + ".lck") && (STRING012 == "YES")) FCreate 3, STRING014 + "." + STRING012, 1, 0
  831.                     FClose 3
  832.                     If (Exist(STRING014 + ".lck")) Then
  833.                         AnsiPos 3, STRING013
  834.                         PrintLn "@X79(@X7E" + STRING014 + "@X79)@X78   " + STRING003 + "@POS:32@@X74Completed@X71" + "@POS:46@" + STRING012
  835.                         AnsiPos 3 + 53, STRING013
  836.                         PrintLn "@X71" + STRING039 + STRING014
  837.                     Else
  838.                         AnsiPos 3, STRING013
  839.                         PrintLn "@X79(@X7E" + STRING014 + "@X79)@X78   " + STRING003 + "@POS:32@@X71InCompleted@X74" + "@POS:46@" + STRING012
  840.                         AnsiPos 3 + 53, STRING013
  841.                         PrintLn "@X71" + STRING039 + STRING014
  842.                     Endif
  843.                     Inc STRING013
  844.                     Inc STRING014
  845.                     FClose 2
  846.                 Next
  847.                 FClose 1
  848.                 AnsiPos 2, STRING013
  849.                 PrintLn "@X0F█@X71                                                 @X08█ @X0F█@X71Quit Infoform Booth      @X08█@X07"
  850.                 Inc STRING013
  851.                 AnsiPos 2, STRING013
  852.                 PrintLn "@X0F█@X71                                                 @X08█ @X07▀@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  853.                 Inc STRING013
  854.                 AnsiPos 2, STRING013
  855.                 PrintLn "@X07▀@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  856.                 If (STRING029 == S2I(STRING037, 34)) Goto LABEL004
  857.                 If (STRING038 <> Chr(64) + Chr(88) + Chr(56) + Chr(67) + Chr(60) + Chr(60) + Chr(60) + Chr(64) + Chr(88) + Chr(56) + Chr(67) + Chr(85) + Chr(110) + Chr(82) + Chr(101) + Chr(103) + Chr(105) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + Chr(101) + Chr(100) + Chr(64) + Chr(88) + Chr(56) + Chr(67) + Chr(62) + Chr(62) + Chr(62)) Then
  858.                     AnsiPos 10, 19
  859.                     STRING019 = "@X8C" + Chr(72) + Chr(97) + Chr(99) + Chr(107) + Chr(101) + Chr(100) + "!!!! Copy oF InFoForM"
  860.                     Delete PPEPath() + PPEName() + Chr(46) + Chr(112) + Chr(112) + Chr(101)
  861.                     Print STRING019
  862.                     AnsiPos 10, 20
  863.                     Print "@X0FPlease Get a Real Copy from <<THT>> @ 314-355-5472"
  864.                     Goto LABEL027
  865.                 ElseIf (Date() >= DATE001) Then
  866.                     AnsiPos 20, 7
  867.                     PrintLn "@X8FThis PPE has Expired!!!!"
  868.                     Goto LABEL027
  869.                 Endif
  870.                 :LABEL004
  871.                 Inc STRING013
  872.                 Inc STRING013
  873.                 Inc STRING013
  874.                 STRING009 = ""
  875.                 RestScrn
  876.                 AnsiPos 2, STRING013 - 2
  877.                 STRING016 = GetY()
  878.                 STRING017 = STRING016 - 3
  879.                 KbdStuff Chr(32)
  880.                 :LABEL005
  881.                 If (BOOLEAN001) Goto LABEL008
  882.                 STRING015 = Inkey()
  883.                 If (STRING015 == Chr(13)) Then
  884.                     STRING004 = Left(ScrText(58, STRING017 + 1, 22, 0), 1)
  885.                     STRING004 = STRING004 + RTrim(ScrText(58, STRING017 + 1, 22, 0), " ")
  886.                     STRING004 = STRING004 + Right(STRING004, 1)
  887.                     STRING004 = Right(STRING004, 1)
  888.                 Else
  889.                     If (STRING029 == S2I(STRING037, 34)) Goto LABEL006
  890.                     If (Date() >= DATE001) Then
  891.                         AnsiPos 20, 7
  892.                         PrintLn "@X8FThis PPE has Expired!!!!"
  893.                         Goto LABEL027
  894.                     Endif
  895.                     :LABEL006
  896.                     If (((((((((STRING015 == Chr(32)) || (STRING015 == "UP")) || (STRING015 == "DOWN")) || (STRING015 == "LEFT")) || (STRING015 == "RIGHT")) || (STRING015 == "z")) || (STRING015 == "Z")) || (STRING015 == "a")) || (STRING015 == "A")) Then
  897.                         AnsiPos 55, STRING017
  898.                         If (STRING017 == STRING016 - 3) Then
  899.                             Print STRING009
  900.                             Goto LABEL007
  901.                         Endif
  902.                         AnsiPos 55, STRING017 + 1
  903.                         Print STRING009
  904.                         :LABEL007
  905.                         AnsiPos 55, STRING017
  906.                         If (STRING017 == 9) STRING017 = STRING017 + INTEGER007 + 1
  907.                         AnsiPos 55, STRING017
  908.                         STRING009 = ScrText(55, STRING017, 25, 1) + "@X08"
  909.                         Color 78
  910.                         AnsiPos 55, STRING017
  911.                         Print ScrText(55, STRING017, 25, 0) + "@X08"
  912.                         Dec STRING017
  913.                     Endif
  914.                     Goto LABEL005
  915.                 Endif
  916.                 :LABEL008
  917.                 If (Exist(STRING004 + ".lck")) Then
  918.                     Inc STRING013
  919.                     AnsiPos 15, 21
  920.                     PrintLn "@X0EYou have Already Filled Out that One@X07"
  921.                     Dec STRING013
  922.                     Wait
  923.                     Goto LABEL002
  924.                 ElseIf ((STRING004 <= INTEGER007) && (STRING004 <> "h")) Then
  925.                     FCreate 1, STRING004 + ".lck", 1, 0
  926.                     FClose 1
  927.                     Goto LABEL016
  928.                 ElseIf (!Exist("*.YES") && (STRING004 == "h")) Then
  929.                     Goto LABEL020
  930.                 Else
  931.                     Goto LABEL009
  932.                 Endif
  933.                 FClose 1
  934.                 :LABEL009
  935.                 Inc STRING013
  936.                 AnsiPos 15, STRING013
  937.                 For STRING008 = 1 To INTEGER007
  938.                     FreshLine
  939.                     If (Exist(STRING008 + ".YES")) PrintLn "@X0EInfoForm @X8C" + STRING008 + "@X0E is Required!!!"
  940.                 Next
  941.                 Wait
  942.                 AnsiPos 15, STRING013
  943.                 For STRING008 = 1 To INTEGER007
  944.                     FreshLine
  945.                     If (Exist(STRING008 + ".YES")) PrintLn "                                            "
  946.                 Next
  947.                 Dec STRING013
  948.                 Goto LABEL002
  949.                 End
  950.                 :LABEL010
  951.                 Tokenize U_Name()
  952.                 If (TokCount() == 3) Then
  953.                     GetToken STRING030
  954.                     GetToken STRING031
  955.                     GetToken STRING032
  956.                     STRING030 = Strip(STRING030, " ")
  957.                     STRING031 = Strip(STRING032, " ")
  958.                     STRING030 = Strip(STRING030, ".")
  959.                     STRING031 = Strip(STRING032, ".")
  960.                     STRING030 = Left(STRING030, 3)
  961.                     STRING031 = Right(STRING032, 4)
  962.                     STRING030 = Strip(STRING030, " ")
  963.                     STRING031 = Strip(STRING031, " ")
  964.                     If (Exist(PPEPath() + "APPS\" + STRING030 + "_" + STRING031 + "." + STRING014)) Then
  965.                         Gosub LABEL012
  966.                         If (STRING011 == NoChar()) FCreate 5, STRING014 + ".lck", 1, 0
  967.                         FClose 5
  968.                     Endif
  969.                 ElseIf (TokCount() <= 2) Then
  970.                     GetToken STRING030
  971.                     GetToken STRING031
  972.                     STRING030 = Strip(STRING030, " ")
  973.                     STRING031 = Strip(STRING031, " ")
  974.                     STRING030 = Strip(STRING030, ".")
  975.                     STRING031 = Strip(STRING031, ".")
  976.                     STRING030 = Left(STRING030, 3)
  977.                     STRING031 = Right(STRING031, 4)
  978.                     STRING030 = Strip(STRING030, " ")
  979.                     STRING031 = Strip(STRING031, " ")
  980.                     If (Exist(PPEPath() + "APPS\" + STRING030 + "_" + STRING031 + "." + STRING014)) Then
  981.                         Gosub LABEL012
  982.                         If (STRING011 == NoChar()) FCreate 5, STRING014 + ".lck", 1, 0
  983.                         FClose 5
  984.                         If (Exist(PPEPath() + "APPS\" + STRING030 + "_" + STRING031 + ".grp")) Goto LABEL011
  985.                         FCreate 5, PPEPath() + "APPS\" + STRING030 + "_" + STRING031 + ".GRP", 1, 0
  986.                         FPutLn 5, U_City
  987.                         FClose 5
  988.                     Endif
  989.                 Endif
  990.                 :LABEL011
  991.                 Return
  992.                 :LABEL012
  993.                 STRING011 = NoChar()
  994.                 INTEGER012 = 0
  995.                 INTEGER011 = ReadLine(PPEPath() + "infocfg." + STRING014, 2)
  996.                 FOpen 5, PPEPath() + "APPS\" + STRING030 + "_" + STRING031 + "." + STRING014, 0, 0
  997.                 :LABEL013
  998.                 If (Ferr(5)) Goto LABEL015
  999.                 FGet 5, STRING010
  1000.                 If (STRING010 == "") Goto LABEL014
  1001.                 Inc INTEGER012
  1002.                 :LABEL014
  1003.                 Goto LABEL013
  1004.                 :LABEL015
  1005.                 FClose 5
  1006.                 If (INTEGER012 < INTEGER011 + 6) Then
  1007.                     Delete PPEPath() + "APPS\" + STRING030 + "_" + STRING031 + "." + STRING014
  1008.                     STRING011 = YesChar()
  1009.                 Endif
  1010.                 Return
  1011.                 :LABEL016
  1012.                 FClose 2
  1013.                 Newline
  1014.                 StartDisp 1
  1015.                 FCreate 5, PPEPath() + "APPS\" + STRING030 + "_" + STRING031 + "." + "vot", 1, 0
  1016.                 FClose 5
  1017.                 DispFile PPEPath() + PPEName() + "." + STRING004, 0
  1018.                 FAppend 3, PPEPath() + "APPS\" + STRING030 + "_" + STRING031 + "." + STRING004, 1, 0
  1019.                 FAppend 4, PPEPath() + "APPS\answers." + STRING004, 1, 0
  1020.                 FOpen 2, PPEPath() + "infocfg." + STRING004, 0, 0
  1021.                 FGet 2, STRING012
  1022.                 FGet 2, STRING002
  1023.                 FreshLine
  1024.                 FPutLn 3, "─────────────────────────────────────────"
  1025.                 FPutLn 4, "─────────────────────────────────────────"
  1026.                 FPutLn 3, " InfoForm PPE   " + STRING006 + "        " + STRING007
  1027.                 FPutLn 4, " InfoForm PPE   " + STRING006 + "        " + STRING007
  1028.                 FPutLn 3, "                                         "
  1029.                 FPutLn 4, "                                         "
  1030.                 FPutLn 3, "User: " + U_Name() + "   " + "City " + U_City
  1031.                 FPutLn 4, "User: " + U_Name() + "   " + "City " + U_City
  1032.                 FPutLn 3, "Connected @ " + STRING027 + "    To Node " + String(PcbNode())
  1033.                 FPutLn 4, "Connected @ " + STRING027 + "    To Node " + String(PcbNode())
  1034.                 FPutLn 3, "─────────────────────────────────────────"
  1035.                 FPutLn 4, "─────────────────────────────────────────"
  1036.                 For INTEGER005 = 1 To STRING002
  1037.                     FGet 2, STRING001
  1038.                     Tokenize STRING001
  1039.                     GetToken INTEGER002
  1040.                     GetToken INTEGER003
  1041.                     GetToken INTEGER004
  1042.                     AnsiPos INTEGER002, INTEGER003
  1043.                     :LABEL017
  1044.                     STRING005 = ""
  1045.                     InputStr "_", STRING005, 14, INTEGER004, Mask_Ascii(), 0
  1046.                     If (STRING005 == "") Goto LABEL017
  1047.                     FPutLn 3, STRING005
  1048.                     FPutLn 4, STRING005
  1049.                 Next
  1050.                 Newline
  1051.                 Wait
  1052.                 FClose 4
  1053.                 FClose 3
  1054.                 FClose 2
  1055.                 STRING013 = 1
  1056.                 For INTEGER005 = 1 To INTEGER007
  1057.                     FOpen 2, PPEPath() + "infocfg." + STRING013, 0, 0
  1058.                     FGet 2, STRING012
  1059.                     If (Exist(STRING013 + "." + STRING012) && Exist(STRING013 + ".lck")) Delete STRING013 + "." + STRING012
  1060.                     Inc STRING013
  1061.                     FClose 2
  1062.                 Next
  1063.                 FClose 1
  1064.                 If (!Exist(PPEPath() + "APPS\WAITING.app")) FCreate 1, PPEPath() + "APPS\WAITING.app", 1, 0
  1065.                 FOpen 1, PPEPath() + "APPS\WAITING.app", 2, 0
  1066.                 :LABEL018
  1067.                 If (Ferr(1)) Goto LABEL019
  1068.                 FDGet STRING033
  1069.                 If (STRING033 == U_Name()) Then
  1070.                     FClose 1
  1071.                     Goto LABEL002
  1072.                 Endif
  1073.                 Goto LABEL018
  1074.                 :LABEL019
  1075.                 FClose 1
  1076.                 Goto LABEL002
  1077.                 :LABEL020
  1078.                 Cls
  1079.                 FClose 1
  1080.                 STRING023 = 1
  1081.                 STRING024 = 1
  1082.                 FClose 1
  1083.                 FCreate 1, "MESS.TMP", 1, 0
  1084.                 DispFile PPEPath() + "goodbye.pcb", 0
  1085.                 :LABEL021
  1086.                 If (Abort()) Goto LABEL022
  1087.                 STRING022 = ""
  1088.                 FreshLine
  1089.                 InputStr STRING024 + " >_", STRING022, 9, 74, Mask_Ascii(), 512 + 2 + 4 + 256
  1090.                 If ((STRING023 == 1) && (STRING022 == "")) Goto LABEL020
  1091.                 If (STRING022 == "") Goto LABEL022
  1092.                 FPutLn 1, STRING022
  1093.                 Inc STRING023
  1094.                 Inc STRING024
  1095.                 Goto LABEL021
  1096.                 :LABEL022
  1097.                 FClose 1
  1098.                 Message INTEGER006, "SYSOP", U_Name(), "Validation Please!!!", "R", 0, 0, 0, "MESS.TMP"
  1099.                 FOpen 1, PPEPath() + PPEName() + ".LVL", 0, 0
  1100.                 FDGet STRING026
  1101.                 If (STRING026 == "NONE") Goto LABEL024
  1102.                 If (U_Sec >= STRING026) Goto LABEL027
  1103.                 If (CDOn()) Goto LABEL023
  1104.                 For INTEGER008 = 1 To INTEGER007
  1105.                     If (Exist(PPEPath() + "APPS\" + STRING030 + "_" + STRING031 + "." + INTEGER008)) Delete PPEPath() + "APPS\" + STRING030 + "_" + STRING031 + "." + INTEGER008
  1106.                 Next
  1107.                 Goto LABEL027
  1108.                 :LABEL023
  1109.                 :LABEL024
  1110.                 FClose 1
  1111.                 FOpen 1, PPEPath() + "APPS\WAITING.app", 2, 0
  1112.                 :LABEL025
  1113.                 If (Ferr(1)) Goto LABEL026
  1114.                 FDGet STRING033
  1115.                 If (STRING033 == U_Name()) Then
  1116.                     FClose 1
  1117.                 Else
  1118.                     Goto LABEL025
  1119.                     :LABEL026
  1120.                     FClose 1
  1121.                     FClose 4
  1122.                     FAppend 4, PPEPath() + "APPS\WAITING.app", 1, 0
  1123.                     FPutLn 4, U_Name()
  1124.                     FClose 4
  1125.                 Endif
  1126.                 If (STRING026 <> "NONE") Then
  1127.                     U_Sec = STRING026
  1128.                     PutUser
  1129.                 Endif
  1130.                 FClose 1
  1131.             Endif
  1132.         Endif
  1133.     Endif
  1134.     :LABEL027
  1135.     FClose 1
  1136.     For STRING008 = 1 To INTEGER007
  1137.         If ((STRING021 == NoChar()) && (STRING029 == S2I(STRING037, 34))) Delete PPEPath() + "apps\" + STRING030 + "_" + STRING031 + "." + STRING008
  1138.         If (((STRING021 == NoChar()) && Exist(PPEPath() + "apps\" + STRING030 + "_" + STRING031 + ".grp")) && (STRING029 == S2I(STRING037, 34))) Delete PPEPath() + "apps\" + STRING030 + "_" + STRING031 + ".grp"
  1139.         Delete STRING008 + ".lck"
  1140.     Next
  1141.     For STRING008 = 1 To INTEGER007
  1142.         Delete STRING008 + ".YES"
  1143.     Next
  1144.     If ((STRING021 == NoChar()) && (STRING029 == S2I(STRING037, 34))) BOOLEAN001 = 1
  1145.     If (STRING018 == "TRUE") Hangup
  1146.     End
  1147.     STRING020 = "Do Not HEX-Edit this PPE, You Will Be Sorry!!!!"
  1148.  
  1149. ;------------------------------------------------------------------------------
  1150. ;
  1151. ; Usage report (before postprocessing)
  1152. ;
  1153. ; ■ Statements used :
  1154. ;
  1155. ;    2       End
  1156. ;    3       Cls
  1157. ;    3       Wait
  1158. ;    1       Color 
  1159. ;    91      Goto 
  1160. ;    301     Let 
  1161. ;    223     Print 
  1162. ;    26      PrintLn 
  1163. ;    65      If 
  1164. ;    3       DispFile 
  1165. ;    8       FCreate 
  1166. ;    9       FOpen 
  1167. ;    3       FAppend 
  1168. ;    31      FClose 
  1169. ;    6       FGet 
  1170. ;    17      FPutLn 
  1171. ;    3       StartDisp 
  1172. ;    2       Hangup
  1173. ;    1       GetUser
  1174. ;    2       PutUser
  1175. ;    11      Delete 
  1176. ;    1       DelUser
  1177. ;    2       InputStr 
  1178. ;    1       InputYN 
  1179. ;    3       Gosub 
  1180. ;    2       Return
  1181. ;    13      Inc 
  1182. ;    3       Dec 
  1183. ;    2       Newline
  1184. ;    2       Tokenize 
  1185. ;    8       GetToken 
  1186. ;    1       KbdStuff 
  1187. ;    252     AnsiPos 
  1188. ;    4       FreshLine
  1189. ;    1       Message 
  1190. ;    2       RestScrn
  1191. ;    1       FDefIn 
  1192. ;    11      FDGet 
  1193. ;
  1194. ;
  1195. ; ■ Functions used :
  1196. ;
  1197. ;    393     +
  1198. ;    3       -
  1199. ;    37      ==
  1200. ;    4       <>
  1201. ;    14      <
  1202. ;    13      <=
  1203. ;    27      >=
  1204. ;    47      !
  1205. ;    31      &&
  1206. ;    19      ||
  1207. ;    2       Len(
  1208. ;    2       Upper()
  1209. ;    3       Left()
  1210. ;    6       Right()
  1211. ;    3       Ferr()
  1212. ;    214     Chr()
  1213. ;    1       Abort()
  1214. ;    1       RTrim()
  1215. ;    5       Date()
  1216. ;    1       Time()
  1217. ;    7       U_Name()
  1218. ;    6       NoChar()
  1219. ;    2       YesChar()
  1220. ;    230     Strip()
  1221. ;    1       Inkey()
  1222. ;    2       String()
  1223. ;    2       Mask_Ascii()
  1224. ;    2       PCBDat()
  1225. ;    31      PPEPath()
  1226. ;    2       PcbNode()
  1227. ;    3       ReadLine()
  1228. ;    14      Exist()
  1229. ;    7       S2I()
  1230. ;    1       Carrier()
  1231. ;    1       CDOn()
  1232. ;    1       GetY()
  1233. ;    6       PPEName()
  1234. ;    2       TokCount()
  1235. ;    4       ScrText()
  1236. ;
  1237. ;------------------------------------------------------------------------------
  1238. ;
  1239. ; Analysis flags : WDBd
  1240. ;
  1241. ; W - Write user ■ 5
  1242. ;     Program writes a user record. Although this may be normal for a
  1243. ;     User Editor, it may also be a way to modify an account level.
  1244. ;     ■ Search for : PUTUSER
  1245. ;
  1246. ; D - Delete user ■ 5
  1247. ;     Program is deleting account(s)... Check!
  1248. ;     ■ Search for : DELUSER
  1249. ;
  1250. ; B - Brute hangup ■ 1
  1251. ;     Program hangup without notification. This may be a good way to
  1252. ;     disconnect a user, but if used randomly, may be very nasty
  1253. ;     ■ Search for : HANGUP, DTROFF
  1254. ;
  1255. ; d - Access PCBOARD.DAT ■ 2
  1256. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  1257. ;     for many PPE so they can find various informations on the system
  1258. ;     (system paths, max number of lines in messages, ...) but it may also
  1259. ;     be a way to gather vital informations.
  1260. ;     ■ Search for : PCBDAT()
  1261. ;
  1262. ;------------------------------------------------------------------------------
  1263. ;
  1264. ; Postprocessing report
  1265. ;
  1266. ;    11      For/Next
  1267. ;    0       While/EndWhile
  1268. ;    22      If/Then or If/Then/Else
  1269. ;    0       Select Case
  1270. ;
  1271. ;------------------------------------------------------------------------------
  1272. ;                 AEGiS Corp - Break the routines, code against the machines!
  1273. ;------------------------------------------------------------------------------
  1274.